unit uDmRel;

interface

uses
  SysUtils, Classes, DB, IBODataset, frxExportText, frxExportImage,
  frxExportRTF, frxExportXLS, frxClass, frxExportPDF, frxDBSet, frxCross,
  frxRich, frxOLE, frxBarcode, frxDCtrl, frxGradient, frxChBox;

type
  TdmRel = class(TDataModule)
    Report: TfrxReport;
    frxPDFExport1: TfrxPDFExport;
    frxXLSExport1: TfrxXLSExport;
    frxRTFExport1: TfrxRTFExport;
    frxBMPExport1: TfrxBMPExport;
    frxJPEGExport1: TfrxJPEGExport;
    frxSimpleTextExport1: TfrxSimpleTextExport;
    frxCheckBoxObject1: TfrxCheckBoxObject;
    frxGradientObject1: TfrxGradientObject;
    frxDialogControls1: TfrxDialogControls;
    frxBarCodeObject1: TfrxBarCodeObject;
    frxOLEObject1: TfrxOLEObject;
    frxRichObject1: TfrxRichObject;
    frxCrossObject1: TfrxCrossObject;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure relatorioCliente;
  end;

var
  dmRel: TdmRel;

implementation

uses uPrincipal, uDm;

{$R *.dfm}

{ TdmRel }

procedure TdmRel.relatorioCliente;
begin
  Report.LoadFromFile(fPrincipal.caminhoSistema+'/Relatorios/Clientes.fr3');
  Report.ShowReport;
end;

end.
